home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
vbpiano
/
vbpabout.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
2KB
|
76 lines
VERSION 2.00
Begin Form AboutBox1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Caption = "AboutBox"
ClientHeight = 2880
ClientLeft = 2265
ClientTop = 1530
ClientWidth = 4980
ClipControls = 0 'False
ControlBox = 0 'False
ForeColor = &H00C0C0C0&
Height = 3285
Icon = VBPABOUT.FRX:0000
Left = 2205
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2880
ScaleWidth = 4980
Top = 1185
Width = 5100
Begin CommandButton Command1
Caption = "Ok"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Left = 1860
TabIndex = 0
Top = 2370
Visible = 0 'False
Width = 1215
End
Begin Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 4320
Top = 2340
End
Begin Image Image1
Height = 2895
Left = 0
Picture = VBPABOUT.FRX:0302
Top = 0
Width = 4995
End
End
Sub Command1_Click ()
Screen.MousePointer = 11
AboutBox1.Hide
Screen.MousePointer = 0
End Sub
Sub Form_Load ()
' Center the AboutBox on the screen
'
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Timer1.Enabled = True
End Sub
Sub Timer1_Timer ()
Screen.MousePointer = 11
Piano.Show
AboutBox1.Hide
Timer1.Enabled = False
AboutBox1.Command1.Visible = True
Screen.MousePointer = 0
End Sub